Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objItem In colItems
    Wscript.Echo objItem.SerialNumber
    Exit For ' do the first item only!
Next 
